load lazy

set add2 { x { 
# uncomment line with "puts $x" for omit bug
#	puts $x
# w/o puts - updateString calls inside expr 
	expr $x + $x
} }
set mul3 { x { 
	set x [ expr $x * 3 ]
} }

set a [ lazy apply $mul3 1 ]
set b [ lazy apply $add2 $a ]

puts " -- $b -- "
